# zone: tutorialb
# Provocating@DragonsOfMist.com
 
sub EVENT_SAY {
  my $NPCName = $npc->GetCleanName();
  my $server_questions = quest::saylink("questions", 1);
  if ($text=~/hail/i){
   $client->Message(315, "$NPCName says, 'Welcome to Dragons of Mist $name, I can help you with any $server_questions regarding our world!'");
  }

  if ($text=~/questions/i){
    $client->Message(315, " ");
    my $website = quest::saylink("website", 1);
    $client->Message(315, "1) Does Dragons of Mist have a $website ?");
    my $info_max_level = quest::saylink("maximum level", 1);
    $client->Message(315, "2) What is the $info_max_level for players ?");
    my $custom = quest::saylink("custom", 1);
    $client->Message(315, "3) Is Dragons of Mist a $custom or legit server ?");
    my $hot_zones = quest::saylink("hotzones", 1);
    $client->Message(315, "4) How do I find the current $hot_zones ?");
    my $xprate = quest::saylink("experience rate", 1);
    $client->Message(315, "5) What is the $xprate rate for Dragons of Mist ?");
    my $spell_scriber = quest::saylink("spell scriber", 1);
    $client->Message(315, "6) Does Dragons of Mist have a $spell_scriber ?");
    my $bots = quest::saylink("bots", 1);
    $client->Message(315, "7) Does Dragons of Mist have $bots or mercenaries ?");
    my $expansion = quest::saylink("expansion", 1);
    $client->Message(315, "8) What $expansion is Dragons of Mist up to ?");
    my $gear = quest::saylink("gear", 1);
    $client->Message(315, "9) Where can I get some starter $gear ?'");
	my $class = quest::saylink("$class", 1);
    $client->Message(315, "10) How well does a $class do here ?'");
  }
  
# Answers to questions

  if ($text=~/website/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'The Dragons of Mist website is located at www.dragonsofmist.com'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/maximum level/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'The maximum level for characters is currently level 65.'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }

  if ($text=~/custom/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'Dragons of mist is mainly legit. There are Buff Bots in The Plane of Knowledge and everyone can create 10 player bots and spawn up to 5 player bots to help with leveling.'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/hotzones/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'The current hotzones can be found under events on the Dragons of Mist homepage.'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/experience rate/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'Experience and AA Experience is gained at twice the normal rate'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/spell scriber/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'Most things in the world of Dragons of Mist are classic, we retrieve our bodies with help of Necromancers, we search for our spells and scribe them by hand. We have clerics to resurrect our dead.'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/bots/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'You can call up to 5 companions to aid you in your battles in this world.'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/expansion/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'Dragons of Mist is currently up to The Gates of Discord expansion.'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/gear/i){
    $client->Message(315, " ");
    $client->Message(15, "$NPCName says, 'Most days there should be a bazaar character in trader mode selling player donated gear anyone can afford'");
	$client->Message(315, " ");
    $client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
  
  if ($text=~/warrior/i || $text=~/shaman/i || $text=~/shadowknight/i || $text=~/rogue/i || text=~/ranger/i || $text=~/paladin/i || $text=~/necromancer/i || $text=~/monk/i || $text=~/bard/i || $text=~/beastlord/i || $text=~/beserker/i || $text=~/druid/i || $text=~/magician/i || $text=~/enchanter/i || $text=~/cleric/i || $text=~/wizard/i){
	$client->Message(315, " ");
	$client->Message(15, "$NPCName says, 'Since a player can tailor a group of bots to any situation, all clases do well in Dragons of Mist, even a $class.'");
	$client->Message(315, " ");
	$client->Message(315, "$NPCName says, 'Or you can ask me other $server_questions.'");
  }
}